home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / c64-preservation-project / apps / graphics_integrator[mike_horgan].nbz / c-d.bas (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  2.0 KB  |  59 lines
  1. 100 IFPEEK(46)-128THENPOKE46,128:CLR
  2. 110 IFA=0THENPRINT"[147]":POKE53280,.:POKE53281,.:POKE821,.
  3. 120 IFA=1THEN170
  4. 130 IFA=2THEN190
  5. 140 IFA=3THEN210
  6. 150 A=.:FORX=49152TO49160:A=A+PEEK(X):NEXT
  7. 160 IFA<>1157THENPOKE46,128:POKE45,.:CLR:A=1:LOAD"C-D2.EXE",8,1
  8. 170 A=.:FORX=21504TO21520:A=A+PEEK(X):NEXT
  9. 180 IFA<>1200THENA=2:LOAD"C-D1.EXE",8,1
  10. 190 A=.:FORX=52480TO52500:A=A+PEEK(X):NEXT:IFA-1845THENA=3:LOAD"DIRECTORY.EXE",8,1
  11. 200 FORX=1TO1000:NEXT
  12. 210 PRINT"[147]      *** [195]ADPAK-64 TO [196]OODLE ***":PRINT"    [195]OPYRIGHT 1985,[201]NKWELL [211]YSTEMS"
  13. 220 POKE631,80:POKE632,46:POKE198,2:REM "P."
  14. 225 PRINT" [208]RESS [196]EL [212]WICE [193]ND $ TO [214]IEW [196]IRECTORY"
  15. 226 PRINT"[207]R  [210]ETURN [146] TO GO [194]ACK TO [205]AIN [205]ENU"
  16. 230 F$="":INPUT"[195]ADPAK-64 [206]AME";F$:L=LEN(F$):IFL=2THENGOTO210
  17. 235 IFL=0THEN50000
  18. 240 FORX=1TOL:POKE21707+X,ASC(MID$(F$,X,1)):NEXT:POKE21707,L
  19. 250 IFF$="$"THENGOSUB420:GOTO210
  20. 260 PRINT"[201]NSERT [195]ADPAK-64 [196]ISK - [200]IT A [203]EY":POKE198,.:WAIT198,1:POKE198,.
  21. 265 GOSUB55000
  22. 270 SYS21729:IFPEEK(21706)<>0THENGOSUB460
  23. 290 GOSUB430:POKE198,.
  24. 300 GETA$:IFA$="_"THEN340
  25. 310 IFA$="[134]"ORA$="[138]"THENGOSUB510:GOTO300
  26. 320 IFA$="[136]"ORA$="[140]"ORA$="[135]"ORA$="[139]"THENGOSUB480
  27. 330 GOTO300
  28. 340 GOSUB450
  29. 350 POKE198,2:POKE631,68:POKE632,68
  30. 360 D$="":INPUT"[196]OODLE [206]AME";D$:F=LEN(D$):IFF=2THENEND:GOTO360
  31. 370 IFD$="$"THENGOSUB420:GOTO360
  32. 380 PRINT"[201]NSERT [196]OODLE [196]ISK - [200]IT A [203]EY":POKE198,.:WAIT198,1:POKE198,.
  33. 390 POKE44,92:POKE43,.:SAVE(D$),8:POKE44,8:POKE43,1
  34. 400 OPEN15,8,15:INPUT#15,A$,B$,C$,D$:CLOSE15:IFVAL(A$)=0THENGOTO530
  35. 410 PRINT" [197]RROR - "A$","B$","C$","D$:PRINT"  [200]IT A [203]EY":POKE198,.:WAIT198,1:POKE198,.:GOTO360
  36. 420 POKE830,ASC("P"):SYS52480:PRINT"[200]IT A [203]EY":POKE198,.:WAIT198,1:POKE198,.:RETURN
  37. 430 POKE56578,PEEK(56578)OR3:POKE56576,(PEEK(56576)AND252)OR2
  38. 440 POKE53272,120:POKE53265,PEEK(53265)OR32:RETURN
  39. 450 POKE56576,PEEK(56576)OR3:POKE53272,22:POKE53265,PEEK(53265)AND223:RETURN
  40. 460 OPEN1,8,15,"I0":CLOSE1:POKE49161,BD%*16+BD%:SYS49158
  41. 470 POKE49162,1:SYS49158:RETURN
  42. 480 FC=(INT(PEEK(23555)/16)-(A$="[136]")+(A$="[140]"))AND15
  43. 490 BC=((PEEK(23555)AND15)-(A$="[135]")+(A$="[139]"))AND15
  44. 500 POKE49162,FC*16+BC:SYS49158:RETURN
  45. 510 BC=((PEEK(53280)AND15)-(A$="[134]")+(A$="[138]"))AND15:BC=BC+16*BC
  46. 520 POKE49161,BC:SYS49155:RETURN
  47. 530 GOTO50000
  48. 50000 OPEN8,8,0,"D,P,R":OPEN15,8,15:INPUT#15,J$,K$,L$,M$:CLOSE8:CLOSE15
  49. 50010 IFVAL(J$)=0THENLOAD"D",8
  50. 50020 PRINT"[147][208]LEASE [201]NSERT [201]NTEGRATOR [196]ISK"
  51. 50050 PRINTTAB(11)"[193]ND [208]RESS [193]NY [203]EY"
  52. 50060 POKE198,0:WAIT198,1:GOTO50000
  53. 55000 B$=F$+",P,R":OPEN8,8,0,B$:OPEN15,8,15
  54. 55010 INPUT#15,J$,K$,L$,M$:CLOSE15:CLOSE8
  55. 55020 IFVAL(J$)=0THENRETURN
  56. 55030 PRINT"[147][198]ILE [206]OT [198]OUND [197]RROR"
  57. 55040 FORX=1TO1000:NEXTX:RUN
  58. 60000 OPEN15,8,15,"S0:C-D.BAS":CLOSE15:SAVE"C-D.BAS",8
  59.